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MARBBABBARAARAALAAAAAAASALALALAAAALALARAAAARA RARE RA RARSAR ESAS AR ALAR SALE A ASSAD SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE aS FURNISHED er A LICENSE AND MAY BE USED AND corite 
NLY ACCORDAN RM F H 


a 
® 
oe 
® 
® 
& 
® 
N T OTICE. SOFTWARE OR “ANY. OTHER = 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. » 
ik 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
*® 
® 
® 
® 
® 
* 
* 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* aeneneeeenenennenneeneennnnanene 


(ARR RAASAAALALALAAAAAAARAEAALARASARESASALAS ALES ELAR A RAR RAR SALAS AA SAR AR ASS SS 


3++ 


SOoOSOCSCOSOSSOSOSSOSOSSOSOSOSOOSOSOSOSOSOSOSOSOSOSOSOSOSOOOOSOSOSOOSSoS 


SOSOOCOCSOOSOSOOSOSSOOSOOSOOSOSOSOOSOSOSOSOSOSOSSOOSCOSOSOOOSOSOSOOOOCOOOCOOOSOOSOOOOOOOOoOO 
fe De) me ae we fe we aw) we we lela la lo lolol ole wlolololololeleololeo lolol olelololo lolol olololo) 


COCO OSCOOOCOSOOCOOSCOOOSOOOOOOSOOSOSOSOSOSOOSOSOOOOOOOOOOOOOOOOOOOOOOOOOO 


NOU EWN 30 ODO NOAUE WN 0 OD NAME WIN (OOD NAME WIN — OO ONOA UE WIN SO OONOUE WN 


PUPS Be BB EE BE & 4~ AANA ANNI AAI AI PPONIPONIPONINPY 2 PO OO Os es 


; FACILITY: ERROR LOG FORMAT PROGRAM | 
: ABSTRACT: baie Sow EMPTIES THE ERROR LOG BUFFERS AND CREATES 
: FILE, ERRLOG.SYS, IN A FORMAT ACCEPTABLE TO ERF. 
> ENVIRONMENT: | 
: AUTHOR: KATHLEEN D. MORSE, CREATION DATE: 29-JUN-1977 | 
: MODIFIED BY: | 
: vO3-011 TCMO008 Trudy C. Matthews 20-Aug-1984, | 
: Increase the size of the buffer that we use to receive 

0 3 messages from the venus console during creation of the 

0 ; cpu-specific error log. Change filename of error ae 

8 ; file on the console device from SNAPx.LOG to SNAPx.DA 

000 : v03-010 TCM0007 Trudy C. Matthews 19-Jul-1984 

000 ; Add ability to create a CPU-specific errorlog once per 

6 3 initialization of the ERRFMT process. 

000 : v03-009 EAD0171 Elliott A. Drayton 7-May-1984 

3 Replace SUPDATE to support th stamps. 

000 : v03-008 EAD0139 Elliott A. Drayton 11-Apr-1984 

4 : Changed output FAB to allow shared read access. 
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ERRFMT 16-SEP-1984 01:29:26 VAX/VMS Macro v04-00 P 
v04-000 gr SEA 19 4 8} ‘63 8 ERRFMT.SR RCJERRFMT MAR; 1 awe 
V03-007 CWH1002 W Hobbs 1-Mar-1983 
Convert the —_ pid to an extended pid for the $delprc. 


v03-006 TCMOO udy C. Matthews 30-Dec-1982 
AL f bup in in ERFSTIMGT P; it modifies R2 but doesn't save the 
ue 


v03-005 Tynes udy C. Matthews 16-Jul-1982 
Fix problem in vose 4 that caused a new ERRLOG.SYS to be 
created each time the system was re-booted. 


V03-004 TCM0004 bw Matthews 24-Jun-1982 
When opening ERRLOG YS, check that its the same file we 
accessed the last time. If not, create a new version. 


v03-003 sang + Ralph 0. oy 08-APR-1982 
ve DEVFAO control ec 'oe so t it is not in the middle 
of the ‘ERROR ACCESSING ERROR toe" FILE’’ message text. 


v03-002 $TJ0251 Steven T. dot treys 01-Apr-1982 
o not send mount/dismount notification messages to 
OPCOM depending on the appropriate sysgen parameter. 


v03-001 STJ0228 Steven T. Jeffreys 19-Mar-1982 
Use full device name when calling $GETDVI. 


v02-012 LMPO014 L. Mark Pilant, 16-Mar-1982 11:15 
Fix a problem with the petting of the desired operator 
bits. Also, fix a problem with using EFN 0 with GETDVI. 


v02-011 LMP0007 L. Mark Pilant 13-Jan-1982 9:55 
Notify the appropriate operators when volume mount and 
dismount messages area seen. 


v02-010 SPF0045 Steve vorgey 28-Dec-1981 
Synchronize buffer copy w allocation eartenk flag. 


V02-009 PHLO013 Peter H. Lipman 21-Aug-1981 
zoenes the output file qnec }*igatyen for the error log file 
us Fee new system wide ay cal name SYSSERRORLOG whic 
is the SYSERR] directory on the system disk. 


3 § QDODOODOOOOOWOO OOO OOO O00 00 00 09 09 09 09 09 09 09 SII NINN INIA AAA AAAAOOUM 
PAT" OOO NAUE WIN 0 OD NAW EWN @ O OO NAW EW 0 OO NOAM EWN OOONOAUSW--OWO0 


Be Se Se Se Ge Se Se Se Se Se Se Ge Se Se Fe Ge Ge Ge Ge Se Ge Ge Fe Fe Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Se Se Ge Se Se Ge Ge Se Se Se Se Ge Se Ge 


1 v02-008 TCM0003 Trudy C. Matthews 6-Aug-1981 
44 1 Change message sent to oerator's terminal when ERRFMT 
060 ! deletes itself. 
000. «(1 v02-007 KDM0059 Kathleen D. Morse 22-Jul-1981 
it ! Fix new file error log message. 
000.~=—1 v02-006 KDM0057 Kathleen D. Morse 15-Jul-1981 
000 1 Add SID to error log buffer message format and make the 
4 : header fields be negative offsets from the message text. 
000. = v02-005 TCM0002 Tru udy 13-Jul-1981 
88 1 Document use of aSY SisySTER: STARTUP ERRFMT instead of 
a4 @SYSSMANAGER: ERFSTA ART to re-start ERRFMT process after it 
00.=— 1 deletes itself. 


v02-004 5} J00e8 


"SaSEb=15B6 81:67:82 YERREMT. SREERNE MT OMAR: 1 


en T. gor teers 01-Feb-1981 


Ste 
Fixed bugs in ant ibex write Logic 


rowed 


ERI 
vO! 
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ERRFMT 16-SEP-1984 01:29:26 VAX/VMS Macro V04-00 Page 4 ERS 
v04-000 DECLARATIONS aes 1 Oty Se ERRFMT.SRCJERRFMT.MAR; 1 . (2). v0é 

$3 -SBTTL DECLARATIONS 
8 3 INCLUDE FILES: 
00 
00 g 
00 ; MACROS: 
000 ; 
000 3 
44 ; EQUATED SYMBOLS: 
309 SPRDEF ; DEFINE PROCESSOR REGISTERS 
00 SDCDEF ; DEFICE DEVICE CLASS TYPES 
000 SDIBDEF ; DEVICE INFORMATION BUFFER 
000 SOVIDEF 3 SGETDVI MESSAGE CODES 
000 SEMBE TDEF ; ERROR MESSAGE ENTRY TYPES 
000 SEMBDEF ; DEFINE ERROR MESSAGE BUFFER HEADER 
000 SEMBTSDEF 3 DEFINE TIME P INTIONS 
000 SERFHDDEF 3 ERROR FORMAT HEADER DEFINITION 
000 SERFTSDEF ; ERROR FORMAT TIME STAMP DEFINTIONS 
000 SERFVMDEF ; ERROR FORMAT VOLUME MOUNT DEFINITIONS 
000 SERLDEF 3 SYSTEM ERROR LOGING DEF INTIONS 
000 SOPCDEF ; OPERATOR MESSAGE DEFINITIONS 
000 SPCBDEF 3 PROCESS CONTROL BLOCK DEFINITIONS 
000 SSSDEF ; DEFINE STATUS CODES 

00000002 ERMSC_FORMAT = 2 ; FORMAT NUMBER FOR VAX 

OO0000F F ERF$C_LOOP_CNT = 255 ; TIMES TO WAIT FOR BUFFER 

00000258 ERFSK-DLTA_STMP = <60*10> : TIME STAMP DELTA IN SECS 

FF676980 ERFSK-CLK_TICK = -<10#1000*1000> 3 CONVERSION TO CLOCK TICKS/SEC 


t OWN STORAGE: 


0000 
00000200 


-PSECT DATA,RD,WRT,NOEXE ,PAGE 
INBUF: .BLKB 512 
FAB 


OUTFAB: $ - 
FAC=<PUT,UPD>, - 
FNA=OUTNAM, - 
FNS=OUTNAMSZ, - 
NAM=NAMEBLOCK, - 
RFM=VAR, = 


FOP=CIF, = 
SHR=<GET,UPI>, - 
ORG=SEQ,- 


; INPUT BUFFER 

; RECORD ACCESS BLOCK 

; PUT AND UPDATE FILE ACCESS 
; FIL ADDRESS 


Sete Se Se Oe & 
ia] 
el 
5s 
mm 


; ILE NAME 
; ASSSOCIATED NAME BLOCK 


; SEQUENTIAL ORGANIZATION 


SOOOOOCOCOCOCOOCCOCOCOCOCOOCOOCDOOOOOOOOSOSOOOOOCOCOOOOOOOCOCOCOMOOOOOOOOOOO 

ee a ce ee ce ee ee a cae cee ce ca a a ed ee ee ee ed ee ee re re ce ae ct ed ee ee ee ed ee ee ee ed ee ee ee ee ee ee ee ee ee ee ee eee 

SINNED DAD DD DDD DPT BB BS BB BB WAIN nppopononor 

WOO NIA ALAN OS OD NA UE WN SO OD NA UNE WWI  O OOO NA NEW 0 OOO NAN E WIN  O OONOUS WW 
i 


PIPPIMPININPINIMPIPININININININVNINNNVOOOOOOCCOOCSoSoSoo 


WOUND OOOO COOCOCOSOOOOOOSoOoOSoooSooO 
F&F SOQOOCOCOCOCOCOCOCOOCOCOCOOOOCOOOOOOOoCOCOoOoOO 


MRS=0 : MAX RECORD SIZE UNSPECIFIED 
OUTRAB: $RAB- = ; RECORD ACCESS BLOCK 

ROP=<EOF .WBH>, - : OPEN TO END OF FILE 

MBF=2. - 

RAC=SEQ, - 

F AB=OUTF AB : FILE ACCESS BLOCK ADDR 
NAMEBLOCK : : NAME BLOCK ASSOCIATED WITH OUTFAB 
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v04-00 
RFMT.MAR;: 1 v0é 
9% «1 0 $NAM 
0000'0000'0000' F4 181 OUTFID: -WORD O03) ; SAVED FILE ID 
m7 ¢ LASTENTRY: -BYTE 0 : ENTRY TYPE OF LAST RECORD WRITTEN 
000000 FB SID: LONG : SYSTEM ID # 
0 FF 184 ERF$W_MBXCHN:  .WORD : DIAGNOSTIC MAILBOX CHANNEL 
0 1 185 ERFSWIMBXSIZ: .WORD ; DIAGNOSTIC MAILBOX SIZE 
000 $ ERF$W-MBXUNT: WORD ; PREVIOUS DIAG MBX UNIT # 
55 21 43 41 21 SF vetapeacnerlinding ‘4 «I : 188 DEVFAO: .ASCID /_!AC!UW:/ ; SFAO control string to format device 
B18 
0 13 191 3 MESSAGE SENT TO OPERATOR UPON FAILURE TO WRITE TO ERROR LOG FILE. 
0315 198 OPRMSG_DSC: | 
0313 194 OPRMSG-LEN: 
90000031 15 195 .LONG OPRMSG_END-OPRMSG : SIZE OF OPERATOR MESSAGE BUFFER 
00000325" 0319 196 ONG OPRMSG : ADDRESS OF OPERATOR MESSAGE BUFFER 
9310 197 ROMSG_DSC 
00000100" 031D 198 LONG ROMSG_END-ROMSG 
00000356' 03 1 199 LONG ROMSG 
0325 00 OPRMSG: 
00000103 0325 201 .LONG OPC$_RQ_RQST!- : TYPE OF MESSAGE 
0329 0¢ <<OPCSM"NM_CENTRL@8>> =; OPERATOR TO INFORM 
9900000 0329 20 . LONG + NOBODY TO RESPOND TO | 
20 20 54 4b 46 52 52 45 032d 04 -ASCII /ERRFMT - ERROR ACCESSING ERROR LOG FILE/<13><10> 
53 45 43 43 41 20 52 4F 0339 
4C 20 52 4F 52 3 45 20 0345 
OA OD 45 4C 49 0351 
0356 205 OPRMSG_END: | 
0356 $06 
0356 207 ROMSG: 
00000456 0356 208 256 ; HOLDS TRANSLATED STATUS MESSAGE. 
0456 209 ROMSG_END: | 
0456 310 ROMSG_LEN: ; HOLDS TRANSLATED MESSAGE LENGTH. 
00000000 0436 ay .LONG 0 
045A $18 t MESSAGE SENT TO OPERATOR WHEN WE'VE FAILED TOO MANY TIMES TO WRITE 
045A ei4 ; TO ERROR LOG FILE. 
045A 215 : | 
045A 16 BYEMSG_DSC: : MESSAGE DESCRIPTSR | 
045A 17 BYEMSG_LEN: | 
00000080" 045A 18 .LONG BYEMSG_END-BYEMSG : LENGTH 
00000462" ag 4 .LONG BYEMSG : ADDRESS 
46 21 BYEMSG: ; MESSAGE 
00000103 046 é .LONG OPC$_RQ_RQST! - : TYPE OF MESSAGE 
466 <<OPCSM_NM_CENTRL@8>> ; OPERATOR TO INFORM 
9 00000 0466 4 .LONG 0 - NOBODY TO RESPOND TO 
4C 45 44 20 20 20 54 4D 46 24 46A 5 -ASCIL /ERRFMT = DELETING ERRFMT PROCESS/<13><10> 
54 4D 46 52 ¢ 45 20 47 4E 49 54 45 «0476 
OA OD 53 53 45 43 4F 52 50 2 0482 | 
49 46 20 47 4F 4C 29 52 4F 5 é 4 48C 226 .ASCII /ERROR LOG FILE UNWRITABLE/<13><10> | 
4C 42 41 54 49 52 57 4E 55 Ga $3 éf rh 
45 20 54 52 41 54 53 45 52 20 4F 54 O04A7 227 .ASCII /TO RESTART ERRFMT PROCESS, USE ‘‘@SYS$SYSTEM:STARTUP ERRFMT''/ 
53 45 43 4F 52 50 20 54 4D 46 52 52 0483 


ERRFMT 
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20 00000580" 
73 69 64 20 00000589" 


DECLARATIONS 


BG i 


00000080 
00000528" 


000005A8 
010€0000° 
010€0000' 


00 
14 


00000708 


4BF 
4C 
4D 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

03 

0 

0 

0 

0 

0 
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3000 Orrin SSS Rorororfonofonopnopnororfryd 
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39 
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44 
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74 
75 
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BYEMSG_END: 
: MOUNT AND DISMOUNT MESSAGE STRINGS 
houNT _FAO: 
«LONG MOUNT_END=MOUNT_MSG 3; LENGTH OF CONTROL STRING 
ROUNT Pe sgraie. MOUNT_ MSG ; ADDRESS OF CONTROL STRING 
~ LONG PC$_RQ_RQST 3 TYPE if sg ting (OPERATOR 1.B.S.) 
LON ; NOBODY TO REPLY TO 
[ASCII \Volume ‘!AD''!ASmounted, on physical Sevten 'AS\ 
MOUNT _END: 
MOUNT_DSC: 
~ LONG 128 3 MAX SIZE OF THE MESSAGE 
mount oe vpn MOUNT _BUF ; ADDRESS OF THE MESSAGE BUFFER 
-BLKB 128 3; STORAGE FOR FORMATTED MESSAGE 
MOUNT _MNT: 
eASCID \V\ ; FOR VOLUME MOUNTED MESSAGE 
MOUNT DMT: 
-ASCID \ dis\ ; FOR VOLUME DISMOUNTED MESSAGE 
ERROR COUNTERS 
ERF $B _ERRCNT: : COUNT ERRORS IN WRITING TO 
BY 3; ERRORLOG FIL 
ERF$B_ MAXERRCNT: 3; MAXIMUM # ERRORS BEFORE DELETING 
-BYTE 20 : THIS PROCESS 
: Data structures needed to get the version number and expanded file name of 
3; a newly created SYSSERRORLOG:ERRSNAP.LNG (Venus-specific). 
: .ALIGN PAGE 
ERRSNAP_F AB: 

SFAB ile Access Blech, 
FNM=<SYSSERRORLOG: :ERRSNAP. Logs. ile name. 
NAM=ERRSNAP_NAM, $ Associated NAM block. 
XAB=ERRSNAP_XAB 3; Associated XAB block. 


9 ERRSNAP_XAB: 
SXABDA 


: ERRSNAP_NAM: 
SNAM 


ERRSNAP_RSA: 


-BLKB 


T 


; Declare date/time XAB. 


; Name block. 
RRSNAP_RSA ; Resultant string area address. 
AMSC UMAXRSS ; Use maximum length of resultant string. 


zm 


; Resultant string will be returned here. 
NAMS$C_MAXRSS 


ERRFAT 
v04-000 DECLARATIONS 
708 
708 
708 
ft 
52 45 24 59 53 000007E3'010E0000" 07D 
A) 3 $3 83 33 45 3A sf 4F rh 32 fF $3 789 
4D 4F 45 2E 50 4 re 
5 4C 49 46 20 24 googee *010E0000° 07F 
50 41 4E 33 $ $0 A ¢? 03 4D 41 3 03 
4 41 446 2E 3 12 
45 4C 49 46 20 246 wie *010E0000" O81A 
50 41 4E $3 $5 $3 s 8 4D 41 35 3 8 
4 41 44 2E 3 : 3 
00000006 ; 9 
083D 
00000000 083D 
0841 
8 41 
841 
00000030 0841 
0841 
00000031 0841 
00000032 0841 
0841 
00 0841 
pats 
00000000 084 
0846 
0846 
0846 
0846 
0846 
00000000 
0000 
0000 
000 
000 
00000001 0000 
00000023 008 
0 
9ASF4400 000 
oor 
00C 
00¢ 
FFFFFFFE 15 
FFB3B4C0 1 
FFFFFFFE 14 
47 GF 4C 52 4F 52 52 45 24 53 59 53 18 
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Page 
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Data structures used when SPAWNing a sub-process to execute ERRSNAP.COM. 


4) 

0; 

di 

: ERRSNAP_COM: 


“[ASCID /SYSSERRORLOG:ERRSNAP.COM/ 


285 ERRSNAP_LOGI 
6 ASCID /$ FILENAME 


387 ERRSNAP_LOG2: 
8 -ASCID /$% FILENAME 
89 ERRSNAP_FLAGS: 
9 .LONG 6 
91 ERRSNAP_STATUS: 

.LONG 0 


96 CONS(_REQERL = “x30 
98 CONSC_INVSNP1 = *X31 
99 CONSC-INVSNP2 = *X32 
00 ERRSNAP _CONCRD: 


-BYTE 
02 ERRSNAP_DATA: 
. LONG 


-PSECT CODE,RD,NOWRT,EXE 


FILCRE: .LONG 1 
.LONG EMBSK_NF 
ERF$Q_DELTA: 


8 
: 3; eee = LONG 


OUTNAM: .ASCII 


:= SNAP1.DAT/ 


:= SNAP2.DAT/ 


; Descriptor for command procedure. 


; Initial DCL command if copying SNAP1. 


; Initial DCL command if copying SNAP2. 


; Set NOCLISYM and NOWAIT flags. 


; Store the exit status of the SPAWNed 
3; command procedure here. 


94 ; Definitions needed to communicate with 11/790 logical console interface. 


Console command to request error 
snapshot file status. 

Console command to invalidate SNAP1.DAT 
Console command to invalidate SNAP2.DAT 
Store command to be sent to console. 


; Store returned data from logical 
3; console interface here. 


: PURE DATA - KEPT IN CODE PSECT FOR LOCALITY 


: ARGUMENT LIST FOR FILE CREATE TIME STAMP ENTRY 


; ONE ARGUMENT 
; NEW FILE TYPE MESSAGE 


; TIME BETWEEM TIME MARKS 


ERFSK_CLK_TICK*ERFSK_DLTA_STMPO*XOFFFFFFFF 


; LOW 1/2 OF DELTA TIME 


; HIGH 1/2 OF DELTA TIME 


; # OF 10 MILLISEC INTERVALS 
O WAIT FOR BUFFER COMPLETION 


.LONG *X09A5F4400 

: #*® = LONG  ERFSK_CLK_TICK®ERFSK_DLTA_STMPa-32 
.LONG © *XOFFFFFFFE 

ERF$Q_WAIT: .LONG -<10#1000#500> 


~LON atl 4 
\SYSSERRORLOG:ERRLOG.SYS\ ; OUTPUT FILE NAME 


(60-000 DECLARATIONS fi: "OrSEb= 1882 81:67:62 ERAEME.SRESERMomromaR:1 P29" ds 


53 59 53 2E 47 GF 4C 52 45 3A & 
860d0087 888" 330 OUTNAMSZ = . = OUTNAM ; LENGTH OF OUTPUT NAME 


SEP=-1984 01:29:26 VAX/VMS Macro 

v04-000 ERRFMT , Het B83 igs YERRFMT ee RCIJERR 
-SBTTL ERRFMT 

FUNCTIONAL DESCRIPTION: 


THIS PROGRAM IS AWAKENED FROM ety elt BY THE ERROR LOGGER 
WHENEVER AN ERROR ore BUFFER BECOMES FULL. THE ERROR FORMAT 
PROGRAM READS ime FULL BU "e AND THEN ook EASES IT FOR RE-USE BY 
THE ERROR LOGGER PROGRAM. THE DATA JUST READ IS RE-ORGANIZED 
PS sheen TO A FILE CALLED "ERRLOG” SYS'' IN A FORMAT ACCEPTABLE 


MT.MAR;1 


RROR FORMAT oa a 50 PLACES TIME STAMP ENTRIES INTO THE 
OG BUFFER. THESE TIME STAMPS ARE PLACED INTO THE gues 
ULAR INTERVALS. HOWEVER, en om TIME STAMPS ARE NO 

INTO THE FILE, “‘ERRLOG.SYS 


OR A NEW VERSION CREATED IF 


N 
LE, ““ERRLOG.SYS'’, IS UPDATED 
ST RECENT VERSION IS BEING ACCESSED OR DOES NOT EXIST. 


-PSECT CODE,RD,NOWRT,EXE 


So 
So 
oo 
o So 
So 
Sooco 
OOOOCCOOCOOCOCOCCOOCCCooOoO 
WIROPononononononononononononononononononononnn) 


a es Be Be Be Bs De De De Bs es es es i i Be Be es Be es es es Be | 


4 
g 
40 
4} 
rk 
44 
49 
23 
rk 
50 
31 
A 
0 54 * ENABL 
0 s3 “ENTRY ERFSSTAR 1,0, : 
0 36 SCMKRNL_S ERFSINIT t INITIALIZE THE ERR FORMATER 
00000000'GF 04 91 5 CMPB APRS SID. TYP790 ; ARE WE EXECUTING ON A VENUS CPU? 
004 58 Gre EXESGB_ CPUTYPE ; 
05 12 0045 359 BNEQ RCBUF ; BRANCH IF NO 
OS4a'CF 00 FB 0047 360 CALLS #0. W*ERF SERRSNAP ; CALL _VENUS=SPECIFIC ERROR ROUTINE 
0046 61 PRCBUF: S$CMKRNL_S W*ERFSGETBUF ©; GET THE FULL ERROR LOG BUFFER 
14650 €8 005 6¢ BLBS ~RO,PRCN ; BR IF MESSAGE(S) TO PROCESS 
005¢ 6 SCLOSE FAB=W*OUTFAB ; CLOSE THE OUTPUT 
006 64 SHIBER_ t WAIT FOR SOMETHING TO DO 
pci sar 65 BRB PROBUF : 
$09 6 : PROCESS NEXT MESSAGE - COME HERE WHEN A BUFFER HAS BEEN COPIED FROM 
0070 368 : THE SYSTEM INTO THE LOCAL BUFFER. IF THE FILE IS NOT OPEN 
9070 69 : OPEN THE OUTPUT FILE OR CREATE ONE IF MOST RECENT IS BEING ACCESSED. 
53 D4 007 71 PRCNXT: CLRL 3 ; R3=0 => OPEN EXISTING 
07 re : R37=0 => CREATE NEW ERRLDE FILE 
07 73 PRCNXT1: 
58 O000'CF 9 007 74 ROVAB W*INBUF ,R8 GET ADDR OF FIRST MSG 
56 01 AB O6B 8 7 75 ADDB3 ERLSB UBUSY (RB). ERL$B _nsGENT (Re) .Re : GET COUNT OF MESSAGES 
CE 13 O007C id: BEQL PRCBUF ; BR IF ‘NO MESSAGES TO PROCESS 
58 OC £0 4: 7 ADDL #ERLSC_LENGTH,R8S : POINT TO START OF MESSAGES 
52. 0200'CF A: MOVAB W*OUTFAB,R : SET ADDRESS OF FAB 
02 Ae 2 6 7 TSTw = FABSW_ IPL ca2) : IS THE FILE OPEN? 
0 0 BEQL 28 : BRANCH TO OPEN OR CREATE FILE 
00aB S311 8 1 . BRW NXTMSG : FILE ALREADY OPEN; CONTINUE 
10 a2 D4 ( 5 CLRL FABSL_ALQ(R2) : CLEAR ALLOCATION 
3 D5 i TSTL = RB : OPEN OR CREATE ERRLOG.SYS? 
2 12 093 5 BNEQ 4Os«S$ : BR TO CREATE NEW FILE 
09 6 SOPEN FAB=(R2) : OPEN MOST RECENT VERSION 
2450 €9 Ov f BLBC ~=—._- RO 48 : OPEN FAILED; GO CREATE A NEW VERSION 
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89 ; If THE OPEN WAS SUCCESSFUL, CHECK THAT THIS IS THE SAME ERRLOG.SYS AS THE 
30 ; ONE WE WROTE TO LAST TIME. IF NOT, CREATE A NEW VERSION OF ERRLOG.SYS. 
O2F4°CF 05 36 TSTL W*OUTFID ; HAS SYSTEM JUST PE~B007 ED? 
1 9 BEQL 10 + YES; DON'T CREATE A NEW ERRLOG.SYS 
54 0296'CF DF 94 MOVAL W*NAMEBLO ; GE ADDRESS OF NAM 
O2ra'cr 2606 D 95 CMPL  NAMSW_ etna W°OUTFID : CHECK FIRST TWO WORDS OF FILE ID 
12 %6 BNEG «= 3 ; ,FIDS DIFFER: CREATE A NEW ERRLOG. SYS 
O2F8'CR 28 AG 8 9 CMPW = NAMSW_FID+4(R4) ,W*OUTFID+4 CHECK 3RD WORD 0 
1A 13 38 = BEQL 108 : FIDS MATCH: GO CONNECT 
4 0 “ SCLOSE FAB=(R2) : CLOSE OLD FILE AND CREATE NEW ONE 
536 4 é . INCL = RB : SIGNAL CREATING NEW FILE 
404 SCREATE FAB=(R2) ; CREATE NEW VERSION 
03 59 a 405 BLBS RO, 10$ + BRANCH ON SUCCESS 
d08 1 4 BRW write FAILURE + NOTIFY OPERATOR OF oGREATE FAILURE 
59 O250'CF 9% 407 108: MOVAB Wout TRAB,RO : SET ADDRESS OF OUTPUT RAB 
02 a9 —sB 408 CLR w Tet ero) : PERFORM A FAST DISCONNECT 
40 Scohnect Ree THS) > CONNECT RAB TO FAB 
03 50 «8 410 BLBS + BRANCH ON SUCCESS 
doce 31 i} ia BRW WRITE_FAILURE : ELSE BRANCH ON FAILURE 
53 £1 TSTL RB ; WAS A NEW FILE JUST CREATED? 
48 OO 414 BEQL § NXTMSG ; BR iF T NEW FILE 
53d 415 CLRL RS : SIGNA LneuccessFut Fite CREATION 
416 + AND INITIALIZATION 
O2FA‘ce 94 41 CLRB UAL ASTENTRY ; CLEAR SAVED MESSAGE ENTRY TYPE 
54 94°CF D 418 MOVAL W*NAMEBLO ; GET ADDRESS OF NAME BLOCK 
O2F4 "CF 34 Aa OD 41 MOVL NAMSW ePID (RSD UTFID SAVE FIRST TWO WORDS OF FILE ID 
O2F8°CF BAG OB 420 MOV) NAMSW “Eibsacrdy, WOUTP IDs4 SAVE 3RD WORD OF 
5 10 ¢ 421 SUBL § #EMBSR_HD_LENGTH, SP ; ALLOCATE A BUFFER (ONLY HEADER INFO) 
2 D 4 ; MOVL  SP,R2~ COPY ADDRESS OF BUFFER 
BA D 4 MOVL —R2. Rags. RBF (RO) SET BUFFER ADDRESS IN RAB 
209 10 8 424 MOVW #EMBSK HOD LENGTH RABSW_ nizih AND SET LENGTH FOR SPUT 
62 Ogre" CF D0 425 MOVL USI ZEnBSL R2)~ st s¥S E E 
046A 3 80 4 $ MOVW 838s #E Engso: HD. ENTRYCR Set ENTRY TYPE 
OA A D 4 mova Enpea AD. {ime TEMBSR™ LENGTH( RB} = ; COPY TIME AND DATE FROM EMB 
06 A 4 : EMB$Q~HD “TIME CR 2) ; FIR RSf ehray IN THE ERROR LOG BUFFER EMB 
OE A2 B4 4 CLRW = EMBSW~HD“ERRSEQ(R2) 3 SET ERROR SEQUENCE NUMBER OF ZERO EMB 
430 $PUT ct (R9)~ ; WRITE FILE CREATED M EMB 
0350 €8 431 BLBS R0,15$ : BR IF SUCCESSFUL EMB 
0085 «31 4 ; He BRW WRITE_FAILURE : ELSE BRANCH ON FAILURE ene 
SE 10 CO 4 4 ADDL #ERFSK_TS_LENGTH, SP : CLEAR THE STACK ERF 
‘ $ ; PROCESS A MESSAGE IN THE ERROR BUFFER. ERE 
4 8 ; tf: = NUMBER OF MESSAGES IN THE BUFFER ERF 
439 ;: R 1s “us ED TO HOLD THE FORMATTED RECORD ERF 
440 : € START OF THE NEXT MESSAGE IN THE LOCAL BUFFER 
; = 
44) + i ADDRESS OF THE OUTPUT RAB 
5¢ 97 £28 j NXTMSG: DECB Rg : IS THERE ANOTHER MSG? : 
0 18 444 GEQ 46=s_«-308 : BRANCH TO FORMAT ANOTHER MSG | 
FFOC 31 445 208: BRW PRCBUF : TRY FOR ANOTHER BUFFER | 
| 
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v04=000 ERRFMT Breen 8be 81361184 FERAYAY. CaCERMERT GAR: 1 7 
14 Aug ASSUME EMBSW_HD_ENTRY EQ ERF$W_HD_ENTRY 
140 44 ASSUME EMBSQ"HD-TIME EQ ERF$Q-HD-TIME 
14 448 ASSUME EMBSW-HD-ERRSEQ EQ ERF$W-HD-ERRSEQ 
58 04 g0 140 449 30S: ADDL  #EMBSR_LENGTH,RS 7 POINT PAST MESSAGE HEADER 
51° FC AB 143.4 p MOVZWL EMBSW SIZE(RBS,R1 > GET SIZE OF MESSA 
51 06 (C2 0147 & SUBL sEMBSE LENGTH,R1 + SUBTRACT SIZE OF SESSACE HEADER 
32 a9 sdS1si«wBO CTSA CG ; MOVW «OR RABSW R82 (89) + AND SET INTO RAB 
a9 6 p 14— 4 MOVAL (RB),R BSL RB RBF (RO) : AND THE ADDRESS OF THE BUFFER 
FF OA 1 454 TSTB Emesé v VAL BRB) ; Is RECORD VALID? 
1 1 455 BNEQ 40S BRA N YES 
04 a8 80 8F 88 01 4 : BISB #ERFSM_HD_INVALD,ERFSW_ ub ENTRY{RB) : FLAG INVALID BUFFER 
57 8 06 15¢ 43 40$:  MOVL RB,R7 ~ :"COPY START OF CURRENT pret ORD 
L ; : v N NEX 
8 51 ¢C 13 43 ADD R1.RB AD ANCE TO NEXT RECOR 
16 460 .DSABL LSB 
16 46¢ + OUTPUT ERROR MESSAGE. R1=SIZE. 
26 © O2FA'CE 4 16 464 MSGOUT: CMPB W*LASTENTRY WEMBSC_TS =; LAST REC = TIME STAMP? 
26 «04 A? 91 169 466 CHB ERF S$W_HD_ENTRY(R7), wemast CTS THIS vo = TIME STAMP? 
1E a9 §3 3 16F rhe MOVB #RABSC_RFA,RABSB_RAC(R9) ";_SET RANDOM FILE ACCESS 
173 469 SFIND RAB=(R9) FIND LAST REC ORD w RITTEN 
1E a9 90 90 O017¢ 470 MOVB #RABSC_SEQ RABSB_ RAC(R9): SET 10 SEQUENTIAL ACCESS 
38 50. «ED 180 471 BLBC _—sRO WRITE FAIL ; BR IF ERROR 
18 47¢ SUPDATE RAB=( + UPDATE LAST RECORD 
2c 50 £9 18¢ 47 BLBC —_—«RO, unite _FAILURE ; BR IF ERRO 
OA7 31 O18F 47% BRW MBX BRANCH TO MAILBOX PROCESSING 
O2FA'CE 04 A? 90 198 475 10$: MOVB  ERF$W_HD_ENTRY(R7), weLasfENTRY ; SAVE MSG ENTRY TYPE 
40 8F O4A 1 198 476 CPB RF $W-HD-ENTRY(R7). /WEMBSC_V WN ai , VOLUME MOUNTED? 
41 8F 04 a? 4 O19 478 CHPE ERESW_ HD_ENTRY(R7), wemase CVD i OR VOLUME DISMOUNTED? 
7 DD DIAG 480 20$: PUSHL R7 : ELSE SAVE ADDRESS OF THE BUFFER 
00000389'EF 01 FB O1A8 481 CALLS pa ERF SMOUNT + GO FORM OPERATOR MESSAGE AND SEND IT 
Oar 4 ‘ 30$:  $PUT  RAB=(R9) : OUTPUT MSG 
7E 50 «EB 188 4 ; BLBS RO,MBX : BR IF SUCCESSFUL $PUT 
O16 is : COME HERE IF AN ACCESS TO THE ERRORLOG FILE FAILED. 
01BB 4 5 WRITE_FAILURE: 
188 488 SGETMSG_S - ; TRANSLATE REASON FOR FAILURE 
1BB 489 MSGID=RO, ~ 
1BB 490 MSGLEN=W*ROMSG_LEN, - 
1 491 BUF ADR=W*ROMSG “DSC 
0315'CEF 00 1D 49¢ MOVL SL OPRRSE. LEN,R& ; SAVE BASIC afte SSAGE LENGTH 
O315'CF O0456'CF CO 01D5 49 ADDL2 W*ROMSG_CEN,W*OPRMSG_LEN: COMBINE OPRMSG WITH STATUS MSG 
1DC 349% SSNDOPR_S - : INFORM 0 ERATOR OF ERROR IN 
DC 36-495 “MSGBUF =W“OPRMSG_DSC t WRITING ERRORLOG FILE 
O315°CF 54 DO O1EA 49 MOVL  R4,W*OPRMSG LEN ; RESTORE BASIC MESSAGE LENGTH 
1EF 49 SCLOSE FAB=W*OUTF ; CLOSE FILE AS CAN'T WRITE TO 11 
OSBD'CF 01 OSBE'CF 9D OFA 49 CBB WERE SB _MAXERRCNT ,# : INC ERROR COUNT AND BRANCH IF ITS 
0010 2 69 W*ERFSB-ERRCNT, NOs" : <= MAX ERROR COUNT. 
4 0 SSNDOPR_S - : ELSE NOTIFY OPERATOR THAT THIS 
4 1 MSGBUF =W“BYEMSG_DSC : PROCESS WILL BE DELETED. 
25. «11 12 2 BRB MBX : BRANCH TO MAILBOX PROCESSING 
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14 3 108: : ERROR COUNT <= Wax ERROR COUNT 
53 6 14 4 INCL 3 + SIGNAL ACCESS FAILURE | 
0299" ¢F —E 0216 § MOVAB Ww oyrrae R2 + MUST CREATE NEW FILE 
A2 B46 0218 : CLRW = FABSW_IF{£(R2) + CLEAR INDICATOR TO OPEN NEW FILE 
1 $FAB STORE = joo : REINITIALIZE FAB 
1€ $ ORG=séd, - ; SEQUENTIAL ORGANIZATION 
1€ 510 MRS=#0, = t NO MAX ON RECORD SIZE 
1€ 0 «4511 FOP=CIF, = 
1E I SHR=<GET,UPI>, - 
1 1 RFM=VAR ; VARIABLE LENGTH RECORDS 
FE39 31 14 BRW PRCNXT1 : GO TRY TO OPEN A NEW FILE 
15 MBX : MAILBOX MESSAGES 
5B OSE p0 9 16 MOVL SP, R11 + MARK THE STACK 
50 O2FF°CF g c (51 MOVZWL W*ERFSW_MBXCHN,RO ; MBX CHANNEL ALREADY? 
19 7 41 18 BEQL + BRANCH ON NON 
0303'CF 00000000" oF 8} 43 19 CHW ggXESGO_ERLMBX .W*ERF Su_ pa i SAME AS LAST TIME? 
0 4 ; 1 SDASSGN_S CHAN=RO : DEASSIGN OLD CHANNEL 
O2FF'CE B4 0 38 2 é os CLRW "W*ERF$W_MAXCHN : Cr eaR OLD CHANNEL 
50 030eP Sp 3¢ 0 3¢ 3 4 MOVZWL G°EXESGO ERLMBX,RO : GET NEW MAIL BOX UNIT 
03'°CF 8 6 5 MOVW RO,W*ERF Sw _MBXUNT 3; SET NEW yar TO USE 
13 0268 526 BEQL 4 + BRANCH IF NONE 
5 t C 6A 527 SUBL  #32-4,SP t ALLOCATE BUFFER IN THE STACK 
52 OSES OC«O@ $0 528 MOVL = SP,R + MARK START OF MAIL BOX UNIT 
41424D5F BF DD 0 529 PUSHL  #*A/_MBA/ : SET PROTOTYPE NAME 
5E bp 0276 530 PUSHL $P + SET START OF BUFFER 
00¢ 9 0278 «531 BSBW = 100$ : SET UNIT OF MAILBOX 
ys oe @.¢€ 7B 3 : SUBL3 (SP),R2,-(SP) : FIND LENGTH O 
52 SE) =iOs«O7F MOVL ; SAVE POINTER TO NAME 
82 534 SASSIGN_S DEVNAM=(R2), : ASSIGN A CHANNEL TO 
0282 535 CHAN= W*ERFSU_ MBXCHN: THE DIAGNOSTIC MAILBOX 
03 50 E8 6 91 536 BLBS R0,45$ ; BRANCH ON SUCC 
008 «631 0 94 3 f 408: BRW 65$ : SKIP THE Q10 IF FAILED 
6—E 20 v0 0297 539 MOVL #32,(SP) RESET LENGTH OF BUFFER 
9A 340 SGETCHN_S CHAN=U"ERE SU _MBXtHN, =; 3 GET SIZE OF MAILBOX 
9A 541 PRIBUF =(R2) 71 Es THE MAXIMUM MSG SIZE 
52 A2 00 O2A 248 MOVL  4(R2),R2 GET ADDRESS OF DEV CHAR BUEFER 
0301'CF A ) 02B2 54 MOVW DIBSW -DEVBUF SIZ(R2), Wren? Sy MBXSIZ ; GET MAILBOX SIZE 
50 A C 028 44 50$:  MOVZWL RABSU- RSZ(R9 GET SIZE OF MESSAGE 
0301'cF 50 81 O2BC 545 CMP W*ERF SW Rake 12 : MSG TOO LARGE? 
05 (1 C 46 BLEQU 5 $ : BRANCH ON OK 
50 O301°CF 8B ¢ 4 MOV) os WRF Sw MBXSIZ RO ; TRUNCATE MSG | 
¢ 48 55$: $Q10_S CHAN=UERES XCHN ; CHANNEL FOR DIAG MB 
C 4 FUNC=#<108_ SURTTEVBLK! 108A_ NOW>,- ; DONT WAIT FOR SUCCESS 
c 30 pis (R7) = : ADDR OF ERROR MSG 
OSBE'CF OSBD'CF 91 O2E 3 CMPB ss W*ERFSB_ERRCNT ; HAVE WE EXCEEDED THE ERROR 
EE W*ERFSB “MAXERRENT ; THRESHHOLD 
34 «15 EE 54 BLEQ 5 t BRANCH IF wo 
50 O4SA°CR 3C C2F 55 MOVZWL W’BYENSG _LEN,RO : GET LENGTH OF A G00uBYE MESSAGE 
00000301 "EF 50 Bi OFS 56 CHPU ” ROJERF SW~ “WBXS12 : MESSAGE 00 LARGE? | 
50 0301°CF BO FE 38 MOVW  W*ERFSW_MBXSIZ,RO + TRUNCATE MESSAGE | 
0 9 60S: | 
| 
} 
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69 $Q10_S - NOTIFY MAILBOX THAT PROCESS IS 
CHAN=U"ERF Su MBXC BEING DELETED. 
6¢ Syn at Na THESeN Tosh NOW>, = 
64 inp : 
5E 5B oo 4 565 65$: MOVL ; RESET THE STACK POINTER 
OSBE'CF O5BD'CF 91 7 66 CMPB Fae. ; HAVE We of XGEEDED THE ERROR 
& 56 Wears “ARERRENT ; THRESH 
03 14 oe BGTR 70 : BRANCH MOF Ores 
FEO6 = 31 $ BRW NXTMSG : ELSE GO PROCESS NEXT MESSAGE 
i : IF ERRCNT > MAXERRCNT, DELETE T HIS PROCESS TO PREVENT INFINITE LOOPING. 
i ; THE ERRFMT PROCESS CAN BE RESTARTED VIA AN OPERATOR COMMAND FILE. 
a 70$: SDELPRC_S : DELETE THIS PROCESS 
E 76; 
a3 E i i 3 LOCAL SUBROUTINE TO CONVERT BINARY TO ASCII AND STORE RESULT 
O33e 78 : IN BUFFER POINTED TO BY R2 
O33E 79 ; 
Oaee 580 
51 D4 33 «65581 100$: CLRL RI ; 0 HI 142 OF QUAD WORD 
7E 50 50 OA 7B 0340 28¢ 110$: EDIV  #10,R0,R0,-(SP) ; ae NEXT DIGIT 
6E 30 CO 0345 58 ADDL  #*A/0/.(SP) : FIND THE DIGIT IN ASCII 
0 oS 0348 584 TSTL = RO : ANY THING LEFT 
0g 13 034A 585 BEQL 120% ; IF NO MORE TO CONVERT 
F 10 034¢ 586 BSBB sé: : GET NEXT DIGIT 
82 BE F6 O34€ 587 1208: CVTLB (SP)+,(R2)+ : STORE A BYTE 
05 0351 588 RSB : 
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90 : ~SBTTL ERRFMT KERNAL MODE INIT 
92 : | 
93 : ERFSINIT = INITIALIZE THE ERROR FORMAT PROGRAM | 
5 : THIS ROUTINE IS ENTERED AT KERNAL MODE TO DELETE A PRVIOUS COPY | 
96 ; OF THIS PROCESS IF ON NE EXISTS, TEHREBY PERMITTING ONLINE REPLACEMENT 
97 : OF THE ERROR FORMAT PROGRAM, AS WiiL AS EASE OF TESTING. ALSO, THE 
3 38 ; KERNAL MODE TIMER AST FOR TIME sYAMPING THE ERROR LOG IS STARTED. 
$380 3 | 
5 . 2 -ENABL LSB 
o00c 035 60¢ “ENTRY ERFSINIT mcR2 R3> ; | 
52 QOO00000"EF dE 0354 60 MOVAL ERLSGL_ERLPID,R2 : GET ADDRESS OF CURRENT PID 
53 00000000'GF oD 038 604 MOVL G SCHSGL. tthe R3 : GET CURRENT PCB 
62 D 036 605 TSTL = (R2) : PID EGUAL ZERO? | 
iD 1 64 606 BEQL ©: 10$ : BR IF YES PREVIOUS ERRFMT | 
62 60 A3 01 0366 60 CMPL § PCBSL_PID(R3), (R2) + MAKE SURE it” Ts THIS PROCESS | 
17 13 036A 608 BEQL =-_:«10 : BR IF SAME PROCESS 
50 62 D0 036c 609 MOVL  (R2), RO : GET INTERNAL PID TOR 
00000000'GF 16 O36F 610 JSB G*EXESIPID_TO_EPID ; CONVERT TO EXTENDED PID 
62 50 00 0375 611 MOVL RO, (R2) 3; SAVE IT IN iL 3 SAME PLACE FOR DELPRC 
0378 61g SDELPRC_S PIDADR=(R2) : DELETE OLD ERRFMT 
62 60 A3 00 0383 613 10S: OVL  “PCB$L_PID(R3),(R2) : SET THE PID FOR THIS PROCESS 
O2FB'CF 3& DB 0387 614 MFPR #PRS_S1D,W*S1 ) : GET SYS ID REGISTER 
18 #11 038C 615 BRB 30$ ; 
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: 617 .SBTTL TIME STAMP ROUTINE 
E 8 p++ 
> 6203 
| E $21 | ERFSTIMSTHP = TIME STAMP 
| Ht 6 : : THIS ROUTINE IS ENTERED PERIODICALLY TO ENTER A TIME STAMP INTO 
O38E 624 ; THE ERROR MESSAGE BUFFER. THEY ARE REMOVED ALONG WITH ANY OTHER 
ge ? ; ; ENTRIES MADE BY THE MAIN LINE OF THIS PROGRAM. 
38E 0627 : THIS ROUTINE HAS NO INPUTS AND ONLY ourPUT 1S THE ENTRY OF THE 
OBE é 8 ; TIME STAMP IN THE ERROR LOG BUFFER. IF A BUFFER CAN NOT BE 
BE 629 : ALLOCATED, THAT TIME STAMP IS LOST. 
ee 
0004 038 63¢ SENTRY strateniane AM<R2> ; TIME STAMP ROUTINE 
1 10 9A 0390 63 MOVZBL #EMBSC PENGTH, R1 GET LENGTH OF MSG 
00000000°EF 16 0393 634 JSB ERLSAL GO GET A iss BLOCK 
0A 50 £9 0399 635 BLBC RO, 3AgCo N NO BLOCK 
04 A226 BO 039C 636 MOVW  #EMBSK_TS,EMBSW_HD _ENTRYERSD “ees aft NTRY TYPE 
QO000000'EF 16 O3A0 637 JSB ERLSRECE EASE MB ; 2) i, ASE 8 LOCK 
O3A6 638 30$:  SSETIMR_S ; SET TIMER FOR TIME STAMPS 
0306 639 DAYTIM=ERF$Q_DELTA.- : TIMER DELTA TIME 
03A6 640 Oey ADR: ERFSTIMSTMP, - ; THE TIME STAMP ENT 
O3A6 641 REQIDT=#EMBSK_TS + AST PARAMETER IS MESSAGE TYPE 
04 0388 64g RET 
0389 64 
0389 644 .DSABL LSB 
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89 64 .SBTTL VOLUME MOUNT/DISMOUNT MESSAGE ROUTINE 
B9 648 ;++ 
B9 649: 
0 By 630 : ERFSMOUNT = MOUNT STATUS MESSAGE 
0389 63¢ : THIS ROUTINE 1S PASSED THE ADDRESS OF THE MESSAGE. FROM THE MESSAGE 
0389 653 ; BUILDS A MESSAGE FOR THE OPERATOR INDICATING THE MOUNT STATUS GhounteD OR 
0389 654: DISMOUNTED) AND SENDS IT TO THE APPROPRIATE OPERATOR. TAPE MOUNTS GO TO 
0289 655 ; THE ‘TAPES’ OPERATOR, DISK MOUNTS GO TO THE "DISKS' OPERATOR, AND ANY OTHER 
0389 696 ; MESSAGES GO TO THE ‘DEVICES’ OPERATOR FOR HANDLING. 
$383 658 :-- 
0389 659 
077¢ 0389 660 .ENTRY ERFSMOUNT, “M<R2,R3,R4,R5,R6,RB,RI,R10> 
0388 66¢ ; DETERMINE IF A MESSAGE SHOULD BE agent. 
51 00000000'GF DO O38B 66 G*EXESGL_MSGFLAGS ; GET System MESSAGE FLAGS 
40 8F O04 A7 91 O3¢e 664 CAPE EMBSW_HD “ENTRYCR?S MEMBSC_VM =} -IS THIS A MOUNT NOTIFICATION? 
09 12 O03C7 665 BNEQ ; BRANCH IF NOT 
09 51 00000000'8F £0 03(9 666 BBS #EXESV_MOUNTMSG,R1, SNDMSG ; BR IF MOUNT NOTIFICATION DESIRED 
04 0301 667 108: RET ; OTHERWISE RETURN (NO STATUS) 
F751 00000000'8F E1 0302 668 20$: BBC #EXESV_DISMOUMSG,R1,10$ + BR IF DISMOUNT NOTIFICATION NOT DE 
O3DA 670; 
O3DA 671 > BUILD A BUFFER DESCRIPTOR AND USE IT TO HOLD THE FORMATTED DEVICE NAME. 
SE 1C C2 O3DA org SNDMSG: SUBL2 #28,SP ; MAKE ROOM FOR DESCRIPTOR AND BUFFER 
56 SE) «=O «OO3DD «67% MOVL  SP,R6 : COPY DESCRIPTOR ADDRESS 
8 14 DO O3E0 675 MOVL #26, (R6)+ : SET DEVICE NAME BUFFER LENGTH 
86 04 A6 DE O3E3 676 MOVAL 4 (RO), (R6)+ : SET DEVICE NAME BUFFER ADDRESS 
56 SE 00 O3E7 677 MOVL  SP,R6 : RESET DESCRIPTOR ADDRESS 
58 #1E A? SE O3EA 678 MOVAB ERFS$B_VM_NAMLNG(R7),R8 : GET ADDRESS OF DEVICE ASCIC STRING 
59 1C A? 3C O3EE 679 MOVZWL ERFSW-VM-UNIT(R7),R9 |: GET DEVICE UNIT NUMBER 
O3F¢ 680 SFAO_S DEVFAO,(R6),(R6),R8,R9 : FORMAT THE DEVICE ONARE 
beo7 682 : BUILD A $GETDVI ITEM LIST ON THE STACK AND 
0407 683 : CALL $GETDVI TO DETERMINE THE DEVICE CLASS. 
7E 7C 0407 685 CLRQ 2s = (SP) ; MAKE ROOM ON THE STACK FOR THE 
7E 7C 0409 686 CLRQ = = (SP) : $SGETDVI ITEM LIST 
58 SE 00 0408 687 MOVL SP, RB SAVE ADDRESS FOR LATE 
68 00040004 8F DO O40E 688 MOVL  #<DVIS_DEVCLASS@16>!4, nb) ; SET ITEM CODE AND BUFFER SIZE 
7E D4 0415 689 CLRL = = (SP) MAKE ROOM FOR THE DEVICE CLASS 
04 AB SE 00 0417 690 MOVL  SP,4(R8) : NOTE THE STORAGE ADDR 
0418 691 > NO RETURN LENGTH NEED 
0418 69 S$GETDVI_S EFN=#6,- F GET THE RNEEDES DEVICE INFO 
0418 69 DEVNAM=(R6) ,- 
418 694 ITMLST=(R8) 
0431 695 SWAITFR_S EFN=#6 ; WAIT UNTAL COMPLETE 
51 8ED0 043A 696 POPL “RI : GET THE DEVICE CLASS 
50 0803 BF 3C 04 D 697 MOVZWL #<OPCS$M_NM_DISKS@8>!OPCS_RO ROST.R RO SET FOR DISK OPERATOR 
01 51 «91 age 698 MPB se R11, #DC$~DISK ; WAS IT’A DISK DEVICE? 
OF 13 ug 699 BEQL XFER IF SO 
50 0403 8F %3C 0447 700 MOVZ2WL #<OPCSM_NM_TAPES@8>!O0PC$_RQ OST, RO ELSE SET FOR TAPE 
51 91 044C 701 CMPB oR, #DCS~TAPE TWAS ITA TAPE BEVICE? 
05 13 O44F 702 Bea. 108 : XFER IF SO 
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003 8F 3C 0451 3 MOVZWL #<OPCSM_NM DEVICE@8>!OPC$_RO_ROST RO ELSE UNKNOWN. 
Oo00dMEA'ER” 50 50 426 704 108: MOVL «RO, MOUNT_MSG ;"SET OPERATOR NAME 
4 p f : : FORMAT THE OPERATOR MESSAGE AND SEND IT TO OPCOM. 
00000520'EF 0080 8F B80 0450 7 y MOvW  #128,MOUNT_DSC ; RESET DESCRIPTOR SIZE 

D 466 7 PUSHL R6 ; SET DEVICE NAME DESCRIPTOR | 
09000548 EF F 04 £10 PUSHAB MOUNT SET FOR MOUNT MESSAGE | 
40 8F 04 A? | 4 f1 CMPB EMBSW HD TENTRY(R7),, wemast_ vM RIGHT? | 
or 4 1 BEQL 40 ;KFER if $0 
6— G00005B1'EF 9& 0475 71 MOVAB. MOUNT_DMT, (SP) ; ELSE SET FOR DISMOUNT MESSAGE 
2A7 OF O047C 714 40S PUSHAB ERF$T~VM_LABEL (R7) ; ADDRESS OF VOLUME LABEL | 
OC DD O47F 715 #1 SIZE OF THE LABEL | 
481 £16 $FAO_S MOUNT_FAO,MOUNT_DSC mount DSC; FORMAT THE MESSAGE | 

049A 71 SSNDOPR_S MSGBUF =MOUNT_D SEND THE MESSAGE 

04 O4AA 718 RET - RETURN’ WHEN DONE 


re ee, Bir eS ee a a ah Se Ae PTT TE ey ee eR a oF QRemee Oe Ee ats ee Sa - 
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ERRFMT 16-SEP-1984 01:29:26 VAX/VMS M vO4-00 p 18 82 
v04-000 GET ERROR LOG BUFFER ~3Ep= 1982 01:07:54 LERRIMT.SAedeRReMTomaR;1 «| Me U8, 


4AB 7 0 .SBTTL GET ERROR LOG BUFFER | 
we fel i 
re 4 : ERFSGETBUF = GET ERROR LOG BUFFER | 
4AB 725 : THIS ROUTINE IS CALLED IN KERNAL MODE TO GET A BUFFER OF ERROR 
4AB 7 $ ; MESSAGES FORM THE ERROR LOG FACILITY. IF THE BUFFER HAS B 
4AB 727 ; MESSAGES, THIS PROCESS WAITS FOR A WHILE. IF THE MESSAGE DOES 
04AB 7 8 : NOT GO UNBUSY IN A REASONABLE TIME, THE BUFFER IS TAKEN IN ITS | 
gee 4 3 ; INDETERMINATE FORM. 
4AB 731 ; RETURN OF A FALSE INDICATES NO BUFFERS WERE READY, 
O4AB f 5 ; TRUE INDICATES A BUFFER WAS OBTAINED. | 
O4FC O4AB 734 -ENTRY ERFSGETBUF ,“M<R2,R3,R4,R5,RO,R7, R103; ENTRY POINT MASK 
FF BF 9A O04AD 735 MOVZBL #ERESC | 008 CNT R10 : SEf A LOOP’ COUNT 
54 QO0000000'EF 9A 0481 736 MOVZBL ERL$GB : GET BUFFER POINTER 
56 O0000000'EF44 DO 0488 737 MOVL  ERLSAL “BUF ADDERS). R6 =; ~ GET BUFFER ADDRESS 
57 O000'CF 9€ 04¢0 738 MOVAB W*INBUF,R7 : GET ADDR OF STORAGE BUF 
0003 A6 00 £6 04€5 739 BBSSI #ERLSV LOCK, ERLSB_ FLAGS(R6),20$; INHIBIT ALLOCATIONS 
66 95 O04CA 740 208: TSTB ERLSB_BU Bus : 1§ BUFFER CHANGING? 
1E 13 O4CC 741 BEQL 0$ ; BR * NG 
5A 07 O4CE 74 DECL R10 : IS WAIT TIME UP FOR THIS BUFFER? 
1A 13 «(040074 BEQL 30% : BR IF VES 
0402 744 SSETIMR_S #2,ERF$Q_WAIT : WAIT FOR A BIT 
04E1 745 SWAITFR—S #2 + FOR THe RHE SCAGES 10, COMPLETE 
DE 11 O4EA 746 BRB 208 : CHECK THE BUFFER 
SA FF BF QA O4EC 747 30$ MOVZBL HERE SC LOOP_CNT,R10 : SET A LOOP COUNT 
67 66 0200 8F 28 O4FO 748 35$ MOVC3 #512, (R6), (RZ) : COPY BUFFE 
67 66 0200 8F 29 O04F6 749 CMPC3 #512, (R6),(R7) : DID BUFFER CHANGE ? 
1E 13 O4FC 750 BEQL 40$ : IF EQL 
SA D7 O4FE 751 DECL R10 : IS WAIT TIME UP FOR THIS BUFFER? 
1A 13«0500 138 BEQL 40% : BR IF YES 
0502 75 SSETIMR_S #2,ERF$Q WAIT : WAIT FOR A BIT 
0511 «754 SWAITFRIS : FOR THE MESSAGES TO COMPLETE 
D4 11 «051A 755 BRB 35$ : CHECK THE BUFFER AGA 
051¢ 756 40$:  DSBINT > DISABLE INTERRUPTS 
66 B4 0522 757 CLRW ERL$B_BUSY(R6) : CLEAR MESSAGE AND busy COUNTS 
08 6 04 AB D1 0524 «758 CMPL ERLSL- NEXT(R6) ,ERLSL_ENC(RG) ; WAS BUFFER F 
07 12 0529 759 BNEQU 50$ ; IF NEQU NO 
00000000'EF 01 8C 0528 760 XORB #1,ERL$GB_BUFPTR INDICATE NEXT BUFFER TO READ 
04 AB 0C AG 3 5 : 761 50$:  MOVAB. ERLSC PERC THCROD ERLSL NEXT(R6) |: SET ALL BUFFER FREE 
0003 a6 ©00.~=«OE?”sCO0S 76 BBCCI W#ERL$V_LOCK,ERLS$B_ FLAGS(R6) ,608; “ENABLE ALLOCATIONS 
53c = 763 60$: —- ENBINT ; ENABLE INTERRUPTS 
50 0001'CF 9A OS53F 764 MOVZBL W*INBUF+ERLSB_MSGCNT,RO : ANY COMPLETED MESSAGES? 
03 13 0544 765 BEQL 70S : IF EQL NO MESSAGE 
50 01 00 0546 766 MOVL #1,R0 : SET SUCESSFUL INDICATION | 
04 0549 767 708: RET > RETURN | 
| 
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16-SEP-1984 01:29:26 VAX/VMS Macro v04-00 
eee yi B83 $e ERRFMT.SRCJERRFMT.MAR; 1 
-SBTTL ERFSERRSNAP 


++ 

FUNCTIONAL DESCRIPTION: 
This routine is specific to the VENUS CPU. It allows a VENUS-specific 
erversee to be copied from the VENUS console mass-storage device 
to the SYSSERRORLOG area, once per bootstrap. 


; CALLING SEQUENCE: 


CALLS/G #0,ERFSERRSNAP 


INPUT PARAMETERS: 


NONE 


IMPLICIT INPUTS: 


The VENUS console subsystem will be queried to find if a valid error 
snapshot file exists on the venus console mass storage device. 


; OUTPUT PARAMETERS: 


NONE 


IMPLICIT OUTPUTS: 


If the Je file exists on the venus console mass storage 
device, it will be copied to the SYS$ERRORLOG directory. 


; COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 
-ENTRY ERFSERRSNAP,O 


Determine which, if either, snapshot file is present and valid on the 
console device. 


CLRL W*ERRSNAP_DATA 

$CMKRNL_S - 

ERF SSNAPSHOT_PRESENT 
4 7 


Initialize returned data buffer. 
Is a snapshot log present? 


W*ERRSNAP_DATA+1, : Copy the fla byte to the low 
W*ERRSNAP_ ; byte of the buffer. 
0$: TSTB W*ERRSNAP_DATA : Is SNAP1 or SNAP2 valid? 
EQL RETURN ST ; Branch if neither. 
MOVAB W*ERRSNAP_LOG1,R2 ; Assume SNAP1 is valid. 
MOVB #CONSC_IN - ; Save function code to invalidate. 
W*ERRSRAP_CONCMD ; SNAP1 file when we're done with it. 
sc #O,W°ERRSNAP_DATA,20$  ; Branch if SNAP! is valid. 
MOVAB W*ERRSNAP_LOG2.R : SNAP2 must be valid. 
MOVB #CONSC_INUSNP2,- ; Save function code to invalidate 


ERRFMT Vg-$Eb-19 4 1:29:26 VAX/ vis Macro Vv04-00 Page 20 | 
- NA -SEP- :01: R ° RFEMT.MAR; | 
v04-000 ERF SERRSNAP SEP=1984 01:01:54 CERRFMT.SRCJERRFMT.MAR; 1 (4) | 
B41" cF 583 826 W*ERRSNAP_CONCMD ; SNAP2 file when we're done with it. | 
0842°CF 1 €5 0586 BBCC #1,W*ERRSRAP_DATA,= ; Branch only if invalic data from the 
47 588 8 RETURN_STATUS : console logical interface. | 
2 ; 3 208 
058¢ 1 ; SPAWN a subprocess to execute the ERRSNAP.COM command procedure. 
58C ¢ 3; ERRSNAP.COM copies the error snapshot file from the console sevice to 
2 : Z : SYSSERRORLOG:ERRSNAP.LOG. 
O83D'CF DF 05 c 5 PUSHAL W*ERRSNAP_STATUS ; To receive completion status from the 
5 6 3 command procedure. 
Q oD 238 ? PUSHL # ; No process~id. 
0 oD 9 8 PUSHL @# ; Don’t care what the process’ name is. 
O839"CF DF 0594 9 PUSHAL W*ERRSNAP_FLAGS ; Specify NOCLISYM and NOLOGNAM for flags. | 
bp 0598 40 PUSH # ; Use caller's SYSSOUTPUT. 
07DB' CF F b238 41 PUSHAQ W*ERRSNAP_COM ; Define ERRSNAP.COM as SYSS$INPUT. 
DD O59E g PUSHL R ; Address of initial command string. 
00000000 ' GF FB Q5A0 4 CALLS #7,G*LIBSSPAWN ; Execute the command eroceeure. 
E9 O5A7 44 BLBC RO,RETURN_STATUS ; Check status of LIBSSPAWN. 
50 0000083D'EF DO OSAA 845 MOVL § ERRSNAP_STATUS, : Check status returned by command 
1F 50 =«E9 $28) a5 BLBC RO,RETURN_STATUS ; procedure. 
05B4 848 ; meet ty the console interface that we copied the file successfully, and put 
Beas $08 ; some information about the newly created file into ERRLOG.SYS. 
0584 =851 SOPEN FAB=W*ERRSNAP_FAB 
1150 €9 $38 He BLBC : RO,RETURN_STATUS 
bac 854 “ERFSSNAPSHOT_COPIED : : 
93 11 0501 855 BRB 10$ ; Make sure we get both files if both 
0503 856 3 contain valid information. 
05D3 857 RETURN_STATUS: 
04 0503 858 RET 
| 


— ere 


RO 
ERRSNAP_DATA: 


t 0 is set if SNAP1.DAT is valid on the console disk 


16-SEP-1984 01:29: AX/VMS Macro v04-00 Page 21 
ERF SSNAPSHOT_PRESENT eet 8 83:88 ERRFMT.SRCJERRFMT.MAR; 1 . (5) 

D4 r¢' -SBTTL ERFSSNAPSHOT_PRESENT 

D4 i++ 

D4 ; FUNCTIONAL DESCRIPTION: 

D4 $ Query the VENUS console to find if a valid error snapshot log is 

+ : present on the console mass storage device. 

D4 ; CALLING SEQUENCE: 

D4 ; SCMKRNL_x ERF SSNAPSHOT_PRESENT 

D4 : INPUT PARAMETERS: 

D4 : NONE 

504 3 

ge 3 OUTPUT PARAMETERS: 
be : - Low bit set means no errors encoutered 


MEUM (OOO NA UNE WN OS OD NAME WO ODNOUE UT 


ww 
_—J 
= 
OOO OOO 00000 00 0000 00 00 09 09 INI NI INI NSI NINN NIA AAA OAAOAO 


504 
5D4 
0304 t 1 is set if SNAP2.DAT is valid on the console disk 
05D4 ts <7:2> MBZ 
05p4 
000C +94 ENTRY ERFSSNAPSHOT_PRESENT, “M<R2,R3> 
bape : Call CONSSENDCONSCMD to determine if there is a valid error snapshot on the 
pepe H 3; console disk. 
DO 0308 891 * MOVL + aS eatin ; Function = request errorlog status. 
DO 05D : MOVL #2,R2 ; Expect 2 bytes of returned data. 
9E 05DC MOVAB W*ERRSNAP_DATA,R3 ; Address of buffer to return data in. 
HS Bee) : 108 238 G*CONSSENDCONSCMD : Send command to logical console. 


| 
| 
| 
e 0: | 
9 remnants a “x20 
| 
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tH 
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53 O67F'CF 9A A 4 
1€ 53 (C1 F é 
omnes 1s | 
04 A2 10 80 f 3 
QO6A0'CF D0 0 1 
10 A2 & ; 
O6A4'°CF 80 6 3 
14 A2 & $e 
0664'CF 7D C 5 
16 A2 8 ? 
1E A2 O6DC'CF 38 38 3 3 
00000000" GF 6 D 3c) 
306 
Ge 
944 
6 945 
50 O841°CF 9A 3e9 
6 2) 
comport a i 
0088 61 DO 06 9 950 
04 06 951 
634 326 
634 95 
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16-SEP-1984 01:29: AX/VMS Macro v04-00 
$7 3b 4 8583 i$ LERREMT. SREJERRFMT MAR: 1 
-SBTTL ERFSSNAPSHOT_COPIED 
; FUNCTIONAL DESCRIPTION: 
: This revs ine s called after the VENUS error snapshot has been copied to 
he SYSSERRORLOG directory. It signals the console interface to 
nvalidate the contents of the error snapshot container file on the 
VENUS console mass storage device. 
CALLING SEQUENCE: 
SCMKRNL ERFSSNAPSHOT_COPIED 
INPUT PARAMETERS: 
NONE 
OUTPUT PARAMETERS: 


NONE 


Sete Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Ge Ge Se eee 


-ENTRY ERFSSNAPSHOT_COPIED,“M<R2,R3,R4,R5> 


Write an entry into the error log indicating that a new ERRSNAP.LOG file 
3 hes =eer created. Include its fully expanded name, creation date, and its 
e-id. 


pita W*ERRSNAP_NAM+NAMSB_RSL,R3; Get size of resultant file name. 
ADDL R3,#<EMBSC_HD_LENGTA+8+6>, it + ae size of buffer to 

; allocate. 

; Allocate an error message buffer. 
; Branch if failed to get a buffer. 
; Store the error entry type. 


JSB EER SALLOCENS 
RO,10$ 


MOV) #EMBSC_HLT, - 
EMBSW_AD ENTRY(R2) 
RRSNAP_NAM+ 


MOVL w* NAMSW_FID,-; Put the first two words of the 
EMBSC_HD_CENGTH(R2) : file-id in the buffer. 
MOVW  W*ERRSNAP_NAM+NAMSW_FID+4,-; And the last word of the file-id. 


AB+XABSQ_CDT,-; Put the file's creation date and 
EMBSC_HD_CENGTH+6(R2) ; time into the buffer. 


PUSHR #*M<RT,R2> ; 
R3,W°ERRSNAP_RSA, - ; Move the resultant file name into 
EMBSC_HD_LENGTH+14(R2) : the error log buffer. 
#°M<RT,R2> 

JSB G*ERLSRELEASEMB 


; Now notify the console interface that we have copied the error snapshot 
file successfully. 


; Release the errorlog data. 


; Get console command to invalidate 


MOVZBL W*ERRSNAP_CONCMD, - ; 
R 3; correct snapshot file. 
CLRL R ; Not expecting any returned data. 
JSB G*CONSSENDCONSCMD ; Send command to the logical console. 
108 nee #SS$_NORMAL ,RO ; Signal success. 


- END ERFSSTART 
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Symbol taole ae 8:87:82 LERREMT. SREJERRFRT MAR: 1 . %) 

$$.1AB = 98 ERFSK_HD_LENGTH 00001 

$$. TABEND z ERE SK 134 NGTH 1 

$$. TMP : RFSL“HD-SID 0 | 

$$. TMP = ERFSL_VM_ERRCNT 14 

$$. TMP2 : ERFSL_VM_OPRCNT 1 | 

$$. TMPX s 03 ERFSL-VM_OWNUIC 1 

$$. TMPX1 s ERF SMOUNT B9 RG 04 

$$11 z ERFSM_HD_INVALD = Cc 70 

$$12 = ERFS$Q_DECTA 908 R 04 

. AFLG = ERFSQ-HD_TIME 

«-FLG = ERFS$Q WATT 0 4 R 04 

. «MOD = ERFSSRAPSHOT_COPIED 38 E8 RG 4 

oN = ERF SSNAPSHOT_PRESENT 504 RG 4 

TYP z ERFSSTART 30000 F RG 4 

LEN = ERFSTIMSTMP 5 RG 04 

YEMSG ERFST_VM_LABEL 0000 

BYEMSG_DSC ERFST_VM_NAMTXT 45H 

BYEMSG_END 0 ERF$W_HD_ENTRY 0 38 04 

BYEMSG_LEN 08 S ERF$W_HD-ERRSEQ 000000E 

CONSC_INVSNP1 = 000000 ERF $W_MBRCHN QOOO2FF R 08 

CONSC_ INVSNP2 = ERF$W_MBXSI2Z 444 01 R 0 

CONSC_REQERL = 000 ERF SW_MBXUNT 0000303 R 02 

CONSSENDCONSCMD 04 ERF $W_VM_NUMSET 00000030 

DCS_DISK = 00000001 ERFSW_VM_UNIT i494 9 

DCS_ TAPE = 444464 ERFSW_VM_VOLNUM 000002E 

DEVFAO 0000 R 02 ERLSACLOCEMB eeneeeee =X 8604 

DIBSW_DEVBUF S17 = 00000006 ERLSAL_BUF ADDR aeeneere =X 04 

DVIS _BEVCLASS = 00000004 ERL$B_BUSY = 00000000 

EmBSB_VALID = FRFFFFFEF ERL$B_FLA s ee 

EMBSC_HD_LENGTH = 00000010 ERLSB_MSGCNT = 00000001 

EMBSC_HLT = aaa ERL$C_LENGTH = 0000000C 

EMBSC— = 00000026 ERL$GB_BUFPTR aeneeeee = X 04 

EMBSC_TS_LENGTH = 00000010 ERLS$GL-ERLPID aeeeenee X 04 

EMBSC_VD = 00000041 ERLSL_END = 00000008 

EMBSC_VA e 944 64 ERLSL_NEXT = 00000004 

EMBSK-HD_LENGTH = 0000001 ERLSRELEASEMB aeeeeeee X 04 

EMBSK-LERGTH = 44444 & ERL$V_LOCK = 00000000 

EMBSK_NF = 00000023 ERMSC_ FORMAT = aa ae 

EMBSK~TS = 00000026 ERRSNAP_COM 000007DB R 02 

EMBSL_HD_SID = 8 0 ERRSNAP_CONCMD B008 841 R 0 

EMBSQ_HD_TIME = b6 ERRSNAP_DATA $90 Bee R 02 

EMBSW_HD_ENTRY = 99 0004 ERRSNAP~F AB 000 30 R 0 

EMBSW_HD-ERRSEQ = 0000000E ERRSNAP_FLAGS 0000839 R 0 

EMBSW"SITZE = FFFFFFFC ERRSNAP_LOG1 90 o7FB R 8 

ERF$B_ERRCNT 0005BD R 02 ERRSNAP_LOG2 BIA R 

ERF$B_HD_DCLASS 4 ERRSNAP_NAM 000067C R 0 

ERF$B_HD-DTYPE 5 ERRSNAP_RSA 0 36 CR 6 

ERF$B_MARERRCNT BE R 02 ERRSNAP~ STATUS 000083D R 

ERF $B8_VM_NAMLNG 3 ERRSNAP_XAB 00000650 R be 

ERF$C_HD_LENGTH 1 EXESGB_CPUTYPE eerteeee =X 4 

ERFS$C_LOOP_CNT z FF EXESGL-MSGFLAGS eeeeeeee§ § X 04 

ERFSC-TS_ LENGTH 10 EXESGQ-ERLMBX eeeneeee =X 4 

ERF SERRSRAP 4A RG 4 EXESIPTD TO EPID aeoeeeee X= 04 | 

ERF $GE TBUF 4AB RG 4 EXESV_DISMOOMSG aeneeeee = X 04 | 

ERFSINIT 3 RG 4 EXESV-MOUNTMSG eeeerere§ = X 04 | 

ERFSK_CLK_TICK = rere F ABSB_FNS = 00000034 

ERFSK-DLTA_STMP = 000002 FABSB_ORG = 0000001D | 
| 
| 
| 
| 
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ER REM 16-SEP-1984 01:29: AX/VMS Macro v04-00 Pa 4 
Symbol table eet 8:83:82 YERREMT. SREJERRFMT OMAR: 1 ” 28 | 
FABSB_RFM 2 OUTFID Fa R be | 
FABSB_ SHR = TNAM 1g 8 4 
FABSC BID = OUTNAMSZ 2 } 
FABSC_BLN z UTRAB @ 02 
FABSC_SEQ = PCBSL_PID = 6 
FABSC_VAR = PRS_IPL = 
FABSL_ALQ = v6 = 3E 
FABSL_FNA = PRS$-SID_TYP790 = 04 
FABSL_FOP = PRCBUF 46C R 4 
f ABSV_CHAN_MODE = PRCNXT 70 R 4 
FABSV_CIF = PRCNXT1 0000072 R 4 
FABSV_F ILE_MODE = SG 3 56 R g 
FABSV-GET = ROMSG_DSC 1D R 
F ABSV_LNM_MODE = OMSG_END 0 $26 R og 
FABSV_PUT = ROMSG_LEN 0 oe 6R 
F ABSV_UPD 2 BS$B_RAC = 0000001E 
FABSV_UPI s RABS$C_BID = 00000001 
F ABSW_ GBC = BSC"BLN = 00000044 
FABSW_IF1 = RABSC_RFA = 444944 
FABSW ARS = RABSC_SEQ = 00000000 
FILCRE 04 ABSL_CTX = 4 $4 9h 
INBUF 02 RABSL_RBF = 44 se 
10$M_NOW eteeeeeer xX 04 RABSL_ROP = 00000004 
10$_QRITEVBLK eenaeeee = = |= (04 RABSV_EOF = 00000008 
LASTENTRY 000002FA R 02 RABSV_WBH = eae es 
LIBSSPAWN eeeereee 04 RABSW_ISI = 4444 
MBX a ea Tod R 04 RABSW_RSZ = 0000002 
MOUNT _ BUF 0000528 R 08 RETURN_STATUS 000005D3 R 04 
MOUNT" DMT 0000581 R 0 SCHSGL_CURPCB eeeeeere =X 04 
MOUNT_DSC 0600520 R 02 SID po 8p ogre FE 02 
TEND 00000520 R Os SNDMSG O0003DA R 04 
MOUNT _F AO 444943 R 0 $S$_NORMAL = 00000001 
TMNT 005A8 R o¢ SYSSASSIGN teeeeeee GX 04 
MOUNT" MSG O004EA R 0 SYSSCLOSE eeenenee GX 04 
SGOU 38 162 R 04 SYSSCMKRNL eeneeeee GX 04 
NAMSB_ESS = O0A SYSSCONNECT aeeeeene GX 04 
NAM$B_ NOP = aia SYSSCREATE eeeeeeee GX 04 
NAMSB_RSL s $0008 SYSSDASSGN eeenenee GX 04 
NAMSB_RSS = 0 39 SYSSDELPRC eeeeeeee GX 04 
NAMSC_BID zs 38 0 SYSSFAO teeeneee§ X 04 
NAMSC_BLN = 6 SYSS$F IND teneeeee GX 04 
NAMSC_MAXRSS = 00 FF SYSS$GETCHN aeeneeee GX 04 0( 
NAMSL-ESA = 00 C SYSSGETOVI aeeeeeee GX 4 0 
NAMSL~RSA = 4 SYSSGETMSG aeeeenee GX 4 0 
NAMSW”F iD = 4 SYSSHIBER aeeerente GX 4 0( 
NAMEBCOCK 4 R 0? SYSSOPEN eeeeeeee GX 04 0 
NXTMSG 9R 4 SYS$PUT eereeeee GX 04 0 
OPCSM_NM_CENTRL = 1 SYS$Q10 eaeeeeee GX 04 0 
OPCSM_NM_DEVICE = 9 SYSSSETIMR teeeeeee GX 04 0( 
OPCSM_NM_DISKS = SYSSSNDOPR aeeneeee GX 4 0 
OPCSM"NM~ TAPES = SYSSUPDATE teneeeee GX 4 0 
OPC$_RaQ_Rast = SYSSWAITF aeeeeeee GX 4 4 
OPRMSG 0 h 0 WRITE_FAILURE 00018B R 04 
OPRMSG_DSC 0 R XABSC_DAT = 0000001 | 020( 
OPRMSG-END 36 R XABSC~DATLEN = 000 36 | 
OPRMSG_LEN 15 R XABSL_NXT = 000 4 
OUTFAB 0000200 R XABSQ~CDT = 00000014 | 
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Symbol table $7 een 1382 Oh i8s ise YERREMT. SREJERREMT. MAR; 1 a fa) 


KABSQ_EDT = 0000001C 
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0 
PSECT name Allocation PSECT No. Attributes 
, 2s 9 90 ( -)> 00 ¢ 0.) NOPIC USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 0 
$aBS$ O3— ( 62.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 8 
DATA 846 ( 2718.) ’ ( ¢:) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
SRMSNAM 0 901 ( gh.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 8 
CODE 634 ( 1588.) 04 ¢ 4:) NOPIC  USR REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 


Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.08 00:00:00 .36 
Command processing 156 338 : - 6 ee 0 

Pass 1 559 00:00:23.26 00:00:50.17 
Symbol table sort 0 00:00:02.71 Ee SEG 
Pass 2 191 00:00:04.47 8209309 -18 
Symbol table output 28 00:00:00.19 00:00:00.3 

Psect synopsis output i 0.03 00:00:00.03 
Cross-reference output 00: 8299-09 00:00:00.00 
Assembler run totals 96 00:00:31.61 00:01:07.88 


119098 bytes (2335 pages) of virtual memory were used to buffer the intermediate code. 

There were 100 pages of symbol table space allocated to hold 1834 non-local and 42 local symbols. 
source Lines were read in Pass 1, producing 45 object records in Pass 

87 pages of virtual memory were used to define 71 macros. 
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Macro Library name Macros defined 
-$255SDUA28: Fear nt CPi zeone hy LBs 3 
> ge SDA : 3v5-08y LIB.MLB; 1 g 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 s& 
TOTALS (all Libraries) 68 


25135 GETS were required to define 68 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:ERRFMT/OBJ=OBJ$:ERRFMT MSRC$:ERRFMT/UPDATE=(ENHS:ERRFMT) ¢EXECML$/LIB+LIBS:ERRFMT/LIB 


SSSSSSSSSSSSSSSSSSSSSSSSsssssssssSssssSsSssssessesssseS 


0 
0 
0 
0 
0 
0 
0 
0 
0 
C 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


The working set arate was 1950 pages. 
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